home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / program / lgavb25.zip / DELPHI.ZIP / UNIT1.PAS < prev   
Pascal/Delphi Source File  |  1996-01-14  |  4KB  |  203 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, VBXCtrl, Lgauge25, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     LGauge1: TLGauge;
  12.     Button1: TButton;
  13.     LGauge2: TLGauge;
  14.     LGauge3: TLGauge;
  15.     LGauge4: TLGauge;
  16.     Timer1: TTimer;
  17.     procedure LGauge1Change(Sender: TObject);
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure LGauge4Change(Sender: TObject);
  20.     procedure LGauge3Change(Sender: TObject);
  21.     procedure Timer1Timer(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   Form1: TForm1;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TForm1.LGauge1Change(Sender: TObject);
  36.  
  37. var
  38.   value: real;
  39.  
  40. begin
  41.  
  42.     {get value of pointer(0)}
  43.     LGauge1.PointerID := 0;
  44.     value := LGauge1.PointerValue;
  45.  
  46.     {change band level}
  47.     LGauge1.BandID := 1;
  48.     LGauge1.BandStart := value;
  49.  
  50.     {check value of pointer(1)}
  51.     LGauge1.PointerID := 1;
  52.     If LGauge1.PointerValue > value Then
  53.         LGauge1.PointerValue := value;
  54.  
  55.     {check value of pointer(2)}
  56.     LGauge1.PointerID := 2;
  57.     If LGauge1.PointerValue < value Then
  58.         LGauge1.PointerValue := value;
  59.  
  60. end;
  61.  
  62. procedure TForm1.Button1Click(Sender: TObject);
  63.  
  64. var
  65.   value: real;
  66.  
  67. begin
  68.  
  69.     {get value of pointer(0)}
  70.     LGauge1.PointerID := 0;
  71.     value := LGauge1.PointerValue;
  72.  
  73.     {set value of pointer(1)}
  74.     LGauge1.PointerID := 1;
  75.     LGauge1.PointerValue := value;
  76.  
  77.     {set value of pointer(2)}
  78.     LGauge1.PointerID := 2;
  79.     LGauge1.PointerValue := value;
  80.  
  81. end;
  82.  
  83. procedure TForm1.LGauge4Change(Sender: TObject);
  84.  
  85. var
  86.  
  87.    pstart: real;
  88.    pstop: real;
  89.  
  90. begin
  91.  
  92.     if LGauge4.PointerID=0 then
  93.        begin
  94.         LGauge4.PointerID := 0;
  95.         pstart := LGauge4.PointerStart;
  96.         pstop := LGauge4.PointerStop;
  97.  
  98.         LGauge4.PointerID := 1;
  99.         LGauge4.PointerValue := pstart;
  100.  
  101.         LGauge4.PointerID := 2;
  102.         LGauge4.PointerValue := pstop;
  103.        end
  104.     else if LGauge4.PointerID=1 then
  105.        begin
  106.         LGauge4.PointerID := 1;
  107.         pstart := LGauge4.PointerValue;
  108.  
  109.         LGauge4.PointerID := 0;
  110.         If pstart > LGauge4.PointerStop - 5 Then
  111.             pstart := LGauge4.PointerStop - 5;
  112.  
  113.         LGauge4.PointerStart := pstart;
  114.         LGauge4.PointerID := 1;
  115.         LGauge4.PointerValue := pstart;
  116.        end
  117.     else
  118.        begin
  119.         LGauge4.PointerID := 2;
  120.         pstop := LGauge4.PointerValue;
  121.         LGauge4.PointerID := 0;
  122.         If pstop < LGauge4.PointerStart + 5 Then
  123.                 pstop := LGauge4.PointerStart + 5;
  124.  
  125.         LGauge4.PointerStop := pstop;
  126.         LGauge4.PointerID := 2;
  127.         LGauge4.PointerValue := pstop;
  128.        End;
  129.  
  130. end;
  131.  
  132. procedure TForm1.LGauge3Change(Sender: TObject);
  133.  
  134. var
  135.    a, b: real;
  136.  
  137. begin
  138.  
  139.     case LGauge3.PointerID of
  140.         0: begin
  141.             LGauge3.PointerID := 0;
  142.             a := LGauge3.PointerValue;
  143.  
  144.             LGauge3.PointerID := 1;
  145.             b := LGauge3.PointerValue;
  146.  
  147.             LGauge3.PointerID := 2;
  148.             LGauge3.PointerValue := a * b;
  149.            End;
  150.         1: Begin
  151.             LGauge3.PointerID := 0;
  152.             a := LGauge3.PointerValue;
  153.  
  154.             LGauge3.PointerID := 1;
  155.             b := LGauge3.PointerValue;
  156.  
  157.             LGauge3.PointerID := 2;
  158.             LGauge3.PointerValue := a * b;
  159.            End;
  160.         2: Begin
  161.             LGauge3.PointerID := 2;
  162.             a := LGauge3.PointerValue;
  163.  
  164.             LGauge3.PointerID := 0;
  165.             LGauge3.PointerValue := Sqrt(a);
  166.  
  167.             LGauge3.PointerID := 1;
  168.             LGauge3.PointerValue := Sqrt(a);
  169.            End;
  170.     End;
  171.  
  172. End;
  173.  
  174. procedure TForm1.Timer1Timer(Sender: TObject);
  175.  
  176. var
  177.  
  178.    value: real;
  179.  
  180. begin
  181.  
  182.     LGauge1.PointerID := 0;
  183.     LGauge1.PointerValue := LGauge1.PointerValue + 3*Random(1000)/1000-1.5;
  184.     value := LGauge1.PointerValue;
  185.  
  186.     {change band level}
  187.     LGauge1.BandID := 1;
  188.     LGauge1.BandStart := value;
  189.  
  190.     {check value of pointer(1)}
  191.     LGauge1.PointerID := 1;
  192.     If LGauge1.PointerValue > value Then
  193.         LGauge1.PointerValue := value;
  194.  
  195.     {check value of pointer(2)}
  196.     LGauge1.PointerID := 2;
  197.     If LGauge1.PointerValue < value Then
  198.         LGauge1.PointerValue := value;
  199.  
  200. end;
  201.  
  202. end.
  203.